10 POKE53280,0:POKE53281,0:POKE53272,23:PRINT"[147][155]":INPUT"[198]ILE-[206]AME ";X$:PRINT"[147]";
20 OPEN2,8,2,X$+",S,R"
30 GET#2,A$:IFST<>0THEN100
40 GETC$:IFC$<>" "THEN90
50 POKE53280,11:GETC$:IFC$=" "THEN80
60 IFC$="E"THEN100
70 GOTO50
80 POKE53280,0
90 PRINTA$;:GOTO30
100 CLOSE2:PRINT:PRINT"...UND TSCHUESS...!"